home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Planet Source Code Jumbo …e CD Visual Basic 1 to 7
/
6_2008-2009.ISO
/
data
/
zips
/
Commandos22153405272009.psc
/
COMMANDOS II.files here
/
COMMANDOS II
/
Credits.frm
< prev
Wrap
Text File
|
2008-01-28
|
4KB
|
122 lines
VERSION 5.00
Begin VB.Form Credits
BackColor = &H00808080&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 5835
ClientLeft = 0
ClientTop = 0
ClientWidth = 8415
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 389
ScaleMode = 3 'Pixel
ScaleWidth = 561
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.PictureBox Picture1
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 4695
Left = 0
ScaleHeight = 313
ScaleMode = 3 'Pixel
ScaleWidth = 433
TabIndex = 0
Top = 0
Width = 6495
End
End
Attribute VB_Name = "Credits"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim TV As New TVEngine
Dim FontNighthawk As TVBitmapParts
Dim FontNighthawkB As TVBitmapParts
Dim TextA As String, TextB As String
Dim Screen2DImmediate As New TVScreen2DImmediate
Dim TextureFactory As New TVTextureFactory
Dim InputEngine As New TVInputEngine
Private Sub Form_Load()
Me.Hide
TV.SetDebugMode False
DoEvents
ShowCursor False
TV.Init3DWindowedMode Picture1.hWnd
Me.Show
Set FontNighthawk = New TVBitmapParts
Set FontNighthawkB = New TVBitmapParts
FontNighthawk.LoadBin App.path & "\Data\Gfx\nghthwk.tvbp"
FontNighthawk.textureid = TextureFactory.LoadTexture(App.path & "\Data\Gfx\nghthwk.bmp", , , , FontNighthawk.Colorkey, False)
FontNighthawkB.LoadBin App.path & "\Data\Gfx\nghthwk.tvbp"
FontNighthawkB.textureid = TextureFactory.LoadTexture(App.path & "\Data\Gfx\nghthwkB.bmp", , , , FontNighthawk.Colorkey, False)
TextA = "CODED IN": TextB = "VISUAL BASIC 6.0": DrawNewText
TextA = "USING": TextB = "DIRECTX 8.0": DrawNewText
TextA = "AND": TextB = "TRUEVISION3D 6.2": DrawNewText
TextA = "PROGRAMMING": TextB = "ZAID MARKABI": DrawNewText
TextA = "COPYRIGHT": TextB = "(C) 2009": DrawNewText
TextA = "EMAIL": TextB = "ZAIDMARKABI@YAHOO": DrawNewText
TimeStart = TV.TickCount
Do
DoEvents
TimeNow = (TV.TickCount - TimeStart)
If TimeNow > 3000 Then Exit Do
TV.Clear
Screen2DImmediate.ACTION_Begin2D
Screen2DImmediate.DRAW_TextureText 50, (Me.ScaleHeight \ 3), FontNighthawkB, " COMMANDOS", 2.5, 2.5, 1 - TimeNow / 3000, 5, CSng(0), TV_TEXT_DIRECTION_LEFTRIGHT
Screen2DImmediate.DRAW_TextureText 400, (Me.ScaleHeight \ 3), FontNighthawkB, "BY", 2, 2, TimeNow / 3000, 5, CSng(0), TV_TEXT_DIRECTION_LEFTRIGHT
Screen2DImmediate.DRAW_TextureText 50, (Me.ScaleHeight \ 2), FontNighthawk, "ZAID MARKABI", 2.5, 2.5, TimeNow / 3000, 5, CSng(0), TV_TEXT_DIRECTION_LEFTRIGHT
Screen2DImmediate.ACTION_End2D
TV.RenderToScreen
Loop
TimeStart = TV.TickCount
Do
DoEvents
TimeNow = (TV.TickCount - TimeStart)
If TimeNow > 3000 Then Exit Do
Loop
Close3D
Unload Me
Intro.Show
End Sub
Private Sub DrawNewText()
TimeStart = TV.TickCount
Do
DoEvents
TimeNow = (TV.TickCount - TimeStart)
TV.Clear
Screen2DImmediate.ACTION_Begin2D
Screen2DImmediate.DRAW_TextureText 50, (Me.ScaleHeight \ 3), FontNighthawk, TextA, 2.5, 2.5, 1 - TimeNow / 3000, 5, CSng(0), TV_TEXT_DIRECTION_LEFTRIGHT
Screen2DImmediate.DRAW_TextureText 100, (Me.ScaleHeight \ 2), FontNighthawkB, TextB, 1.5, 1.5, TimeNow / 3000, 5, CSng(0), TV_TEXT_DIRECTION_LEFTRIGHT
Screen2DImmediate.ACTION_End2D
TV.RenderToScreen
If InputEngine.IsKeyPressed(TV_KEY_ESCAPE) = True Then Exit Do
If TimeNow > 3000 Then Exit Do
Loop
End Sub
Private Sub Form_Resize()
Picture1.Width = Me.ScaleWidth
Picture1.Height = Me.ScaleHeight + 40
TV.ResizeDevice
End Sub
Sub Close3D()
Set Scene = Nothing
Set TextureFactory = Nothing
Set TV = Nothing
ShowCursor True
End Sub